home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / falcon / nt_dsp1.lzh / NT_DSP1.MSA / LFLTS / LATGEN.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-01-24  |  1.3 KB  |  40 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Generalized Lattice FIR/IIR Filter Macro.
  7. ; 
  8. ; Last Update 08 Aug 86   Version 1.0
  9. ;
  10. latgen        macro   order
  11. latgen        ident   1,0
  12. ;
  13. ;     Generalized Lattice FIR/IIR
  14. ;
  15. ;     Input value in register A, output value in register A.
  16. ;
  17. ;     Macro call:
  18. ;             latgen  order           ;call macro
  19. ;
  20. ;     where 'order' is the number of K coefficients.
  21. ;
  22. ;     Alters registers: x0 x1 y0 a b, r0 r4, pc sr
  23. ;
  24. ;     uses 2 locations on the stack.
  25. ;
  26. ;
  27.   move           x:(r0)+,x0  y:(r4)-,y0     ;get first k, first s
  28.   do    #order,_el                          ;calculate states
  29.   macr  -x0,y0,a             b,y:(r4)+      ;a-k*s, save prev s
  30.   move            a,x1       y:(r4)+,b      ;set a for mul, s again 
  31.   macr  x1,x0,b  x:(r0)+,x0  y:(r4)-,y0     ;a*k+s, k, nxt s
  32. _el
  33.   move                       b,y:(r4)+      ;sv scnd to 1st st
  34.   clr   a                    a,y:(r4)+      ;save first state
  35.   move                       y:(r4)+,y0     ;get last state
  36.   rep   #order
  37.   mac   x0,y0,a  x:(r0)+,x0  y:(r4)+,y0     ;do fir taps
  38.   macr  x0,y0,a              (r4)+          ;mac and round, adj pointer
  39.   endm
  40.